﻿Imports StartFrame.Web.BR.Helpers
Imports StartFrame.Web.BR

Namespace Mantenimiento.Administracion


    'Clase para la tabla Parametros de la base de datos Judiciales
    Public Class AccesoRecorridas
        Inherits JsonAbm

        ''' <summary>
        ''' Esta clase se encarga de la administracion de los Parametros.
        ''' </summary>
        Sub New()
            MyBase.New(Operador, Password, "XRRecorridas", "judiciales.dbo.Parametros", "descripcion")
            MyBase.lnk_nombreOperador = Common.Env.Operador
        End Sub

        Public Overrides Function List(Start As Integer, Limit As Integer, Orden As String, Filtro As String) As String
            Dim fCollection As FiltroColeccion = FiltroColeccion.Parse(Filtro)
            fCollection.AgregarEQFilter("idCategoria", "5")
            Return MyBase.List(Start, Limit, Orden, fCollection.ToJSON())
        End Function

        ''' <summary>
        ''' Guarda los juzgados que se van a asociar a una recorrida.
        ''' </summary>
        ''' <param name="id">el id de la recorrida</param>
        ''' <param name="Juzgados">Los juzgados que van a ser asignados a la recorrida</param>
        ''' <remarks>dicha funcion solo guarda asocia los juzgados con la recorrida, no crea ni actualiza ningun otro dato.</remarks>
        Public Sub GuardarJuzgados(id As String, Juzgados As String)
            Dim param As New ArrayList
            param.Add(id)
            param.Add(Juzgados)
            DA.Sql.ExecSP(Common.Env.GetConnectionString("cnnRecorridas"), "wp_ActualizarJuzgados", param)
        End Sub

        ''' <summary>
        ''' Obtiene los juzgados asignados a una recorrida.
        ''' </summary>
        ''' <param name="id">el id de la recorrida.</param>
        ''' <returns>un string separado por coma de todos los registros asignados. ej: "1,2,3,4"</returns>
        ''' <remarks>si no hay ningun registro asignado devuelve una cadena vacia</remarks>
        Public Function ObtenerJuzgados(id As String) As String
            Dim retValue As String = ""
            For Each dr As DataRow In DA.Sql.Select(Common.Env.ConnectionString, "*", "judiciales.dbo.juzgados", "idSede = " & id).Tables(0).Rows
                retValue &= dr("id").ToString() & ", "
            Next
            If String.IsNullOrWhiteSpace(retValue) Then Return String.Empty
            Return retValue.TrimEnd(" ").TrimEnd(",")
        End Function

    End Class
End Namespace